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MODULE DELFIL ¢ 
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BEGIN 


' 
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le 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 

. ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TER OF SUCH LICENSE AND WITH THE 

'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
* 
* 
* 
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* 

'® TRANSFERRED. ® 
* 
* 
* 
* 
* 
a 
* 
* 
* 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
rs OORPORAT I ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
1# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: FI1IACP Structure Level 1 


i ABSTRACT: 


So SDoOooooooo 
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This module deletes a file, returning its blocks to the storage map 


Previous revision history moved to FI1A.REV 
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8 
3 
0 
4 
5 
; 
4 and releasing the file header. 
9040 ENVIRONMENT : 
4 4 i STARLET operating system, including privileged system services 
Bo? and internal exec routines. 
23 i 
3 AUTHOR: Andrew C. Goldstein, CREATION DATE: 4-Apr-1977 15:50 
30 MODIFIED BY: 
3 i A0101 ACG26369 Andrew C. Goldstein, 28-Dec-1979 15:38 
$7 : Fix multi-header file interlock bug 
i A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:02 
5 i 
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1 

1 

1 LIBRARY USEC IORARY £i8,L52" 

! REQUIRE ‘SRCS:FCPDEF.B 

1 

1 FORWARD ROUTINE 

1 DELETE_FILE : NOVALUE, ' complete file deletion 

1 DELETE_FID : NOVALUE; : Just release file header 
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i $3 1 } GLOBAL ROUTINE DELETE_FILE (FIB, FILEHEADER) : NOVALUE = 

: 5 ‘ 1 !e¢ 

a 1! 

: f 5 ! FUNCTIONAL DESCRIPTION: 

; 7 5 1/ This routine deletes a file by releasing its blocks to the storage 
; e : : : bitmap and then releasing the header. 

iB 90 1 | CALLING SEQUENCE: 

$ £8 4! } : DELETE_FILE (ARG1, ARG2) 

: 80 38 1 | INPUT PARAMETERS: 

3 1 94 1! ARG1: FIB of operation 

: Ht 95 : : ARG2: address of file header buffer 

> B4 0 3 1 IMPLICIT INPUTS: 

; g $399 1 | nese 

: 87 0400 1 ! OUTPUT PARAMETERS: 

3 He 38) ! NONE 

: 20 $608 | IMPLICIT OUTPUTS: 

: 4 bc0$ 1! — 

3 9 at's) 1 ! ROUTINE VALUE: 

:  3é 0408 1 | a 

; 96 0409 1 | SIDE EFFECTS: 

; 14 getg ; : File deleted, storage map and index file bitmap modified, VCB modified 
: 99 041g 1 i-- 

; 100 041 1 

; 101 0414 BEGIN 

He OBR Sw 

> 104 bei? FIB : REF BBLOCK, ! address of user FIB 

; 12? gels FILEHEADER : REF BBLOCK; ! address of file header 

; 199 $6 0 2 LOCAL 

: 108 1 HEADER : REF BBLOCK, ' local address of file Meader 

; 109 § F : REF BBLOCK, ' FCB of header in proce 

; 110 FILE_NUMBER, ! file number of header being deleted 
: 111 4 MAP_AREA : REF peLeck i addr rgtse of file header one area 
: 118 5 EXT7FID : BBLOCK CFIOSC_LENGTHJ, ! extension fil 

3 1%? § EX_SEGNUM; T header extension Bild number 
: 115 8 EATERWAL 

: 18 CLEANUP_FLAGS : BITVECTOR, ' cleanup action flags 

3 i : FILE NHERDER : REF BBLOCK; | global file header address 

; 119 é EXTERNAL ROUTINE 

s 7 SEARCH_FCB, ' search FCB List for FCB 

: 121 MARK Corr ' mark buffer tor [Mr] tendeck 

. s ; 5 MARKDEL FCB, } mark FCB for deletion 

 % CHECKSUA compute f ile header checksum 

+ 126 FLUSH_FIO6, tush ¢ rom buffer pool 
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WRITE BLOCK, write block to disk 

INVALIDATE invalidate block buffer 
TRUNCATE HEADER, truncate file header 
NEXT_HEADER; read next file extension header 


! If the file looks Like a directory file flush it from the buffer pool 
to avoid retaining stale directory data. 


HEADER = MHI R; 


IF .BBLOCK LHEADERLFH1S$SW_RECATTR], FATSB_RTYPE] EQL FATSC_FIXED 

“ CHEADERCFH1S@_RECATTRI, FATSQ_RSIZE) EGL NMBSC_DIRENTRY 
THEN FLUSH_FID (HEADERCFMTSW_FIDJ); 
' Loop for all headers, releasing the blocks mapped and the headers. 
i Tf this is an extension header® search the FCB List for the off chance 
i that this header is open as a file. If so, mark it for delete and get out. 
i First write out the deleted file header. fhus, if the system bombs during 
! the delete, we will not have a valid header on the disk mapping blocks 
that may have been returned to the storage map. 


WHILE 1 00 
8 


EGIN 
MAP_AREA = .HEADER + .HEADERCFH1$B_MPOFFSETJ*2; 
IF <MAP_AREALFN1SB_EX_SEGNUM NEQ 0 


BEGIN 
FCB = SEARCH FCB (HEADERCFHI$W_FID)); 
ee NEQ 0 


BEGIN 
HEADERCFH1SV_MARKDEL) = 1; 
CHECKSUM (. HEADER); 

MARK DIRTY (. HEADER); 
KERNEL_CALL (MARKDEL_FCB, .FCB); 
RETURN: 


END; 
FILE e = ,HEADERCFH1SW_FID_NUM); 
HEADER FH1$W_FID_ NUM) = 0: ' deleted header has zero file number 
HEADERLFH1$W- CHECKSUM) = 0; ! and zero checksum 
FILE HEADER = 0; 
WRITE BLOCK (.HEADER); 


INVALIDATE (.HEADER); 
! Now return the blocks mapped by the header to the stcrage map. 
H Then extract the extension header data. 

TRUNCATE HEADER (.FIB, .HEACER, DEALLOC_BLOCKS); 


EX_SE = .MAP_AREACFM1$B_EX SEGNUM] + 1; 
EXT_FIDCFIDSW_NUA) = .MAP_AREACFM1$W_EX_FILNUM); 
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a3 
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3 5 XT_FIDEFIDSW_SEQ]) = ,MAP_AREACFM1S$W_EX_FILSEQ]; 

; ! : 36 EXT ELDEE 1DSUCRYNG = 6; <i 

: 185 9 ! Now free the header in the index file bitmap. Then chain to the next header, 

: : ; if any, and repeat. 

: 1 

; : ; ¢ DELETE_FID (.FILE_NUMBER); 

: 191 2 IF .EXT_FIDCFIDS$W_NUM] EQL 0 THEN EXITLOOP; 

; 19 ; 5 HEADER = NEXT_HEADER (0, 0, EXT_FID, .EX_SEGNUM); 

: 194 ° 

; 195 508 1% END; ! end of routine DELETE_FILE 
TITLE tava 
-IDENT \vV04-000\ 
-EXTRN CLEANUP_FLAGS, FILE_HEADER 
~EXTRN SEARCH_FCB, MARK_DIRTY 
SEXTRN MARKDEC_FCB, CHECKSUM 
-EXTRN FLUSH_FID, WR oc 


F 
“EXTRN INVALIDATE 
SEXTRN NEXT_HEADER, SYSSCMKRNL 


-PSECT S$CODES,NOWRT,2 


005 90000 gENTRY DELETE FILE, Save R2,R3.R4,R5,R6 : 0381 
35 08 AC OD 6008 MOVL FILEHEADER, HEADER + 0449 
5 OE A 3F 0009 MOVAB 14 (HEADER). R + 0450 
‘ oie ee gon : 
10 02 A 8} a012 cHPY (RO), #16 ; 0451 
02 A2 OF 8 PUSHAB 2(HEADER) > 0452 
00006 cf 01 FB 18 CALLS #1, FLUSH_FID : 
: 01 A2 9A 1$ MOVZBL 1(HEADER)> RO > 0464 
5 624 90 4 MOVAW (HEADER)CROJ, MAP_AREA ; 
$ 0 8 TSTB (MAP_AREA) > 0465 
1 A BEQL $$ 3 
02 Ad 9F C PUSHAB 2 (HEADER) > 0468 
00006 ; F F CALLS a. SEARCH_FCB : 
g 1 7 BEQL 2$° > 0469 
OD A2 80 8F 8 9 BISB2 #128, 13(HEADER) > 047 
: DD PUSHL HEADER : 047 
00006 CF FB 4 CALLS ' CHECKSUM Pits 
00006 CF ( FB 0004 CALLS #1, MARK_DIRTY ; 
6 DD C PUSHL FCB > 0475 
E bp PuSHt SE 
00006 cr F PUSHAB MARKDEL at: : 
000000006 9F 4 FB CALLS #4, a@#SYSS$CMKRNL : 
0 D RET : 0471 


e | 
1b-se -1984 00:57: VAX-11 Bliss-32 V4.0-742 Page 6 
-Sep- 329: KS$V $ ° LFIL. : 
1a-8ep 1382 99 35 38 DISKSVMSMASTER:CFIIA.SRCIDELFIL.B32:1- (2) 
55 03 A2 3C OO0SE 28: MOVZWL 2(HEADER), FILE_NUMBER : 0480 
Ae B4 CLRW (HEADER) + 0481 
ire C2 B4 CLRW 10(HEADER) + 04 ; 
0006 CF D4 CLRL FILE_HEADER + 04 
DD D PUSHL HEADER + 0484 
00006 CF FB F CALLS #1, WRITE_BLOCK : 
DD 4 PUSHL HEADER + 0485 
00006 CF FB 00076 CALLS #1, INVALIDATE : 
> Bp oor PUSHE HEADER Fos 
04 AC DD O007F PUSHL fF ; 
00006 cf FB g ALLS #3, TRUNCATE_HEADER : 
4 ; 9A , HOVZBL (MAP_AREA), EX_SEGNUM t 0493 
6E 02 A3 8 00 MOVL (MAP_AREA), EXT_FID + 0494 
4 ag B4 38 CLRW EXT_FID+4 : 0496 
3 DD 0009 PUSHL FILE NUMBER : 0502 
0000v CF i. 909 CALLS #1, BDELETE_FID : 
5H Saye gene BP _ 
54 DD 0009 PUSHL EX_SEGNUM : 0505 
a a9) ? 
00006 CF 94 FB OOOA CALLS #4, NEXT_HEADER : 
52 0 DO OOOAA MOVL RO. HEADER ; 
FF70 31 OOOAD BRW 1$ + 0462 
4 00080 3$: RET : 0508 


; Routine Size: 177 bytes, Routine Base: $CODE$S + 0000 


2 
DELF 1b-se -1984 00:57: VAX-11 Bliss-32_V4.0-742 P 7 
yOe~000 1 730871383 99:39:38 DISKSVMSMASTER:CF11A.SRCIDELFIL.B32:1 > (3) 
; GLOBAL ROUTINE DELETE_FID (FILENUM) : NOVALUE = 
ed 
FUNCTIONAL DESCRIPTION: 


This routine marks the indicated file header free in the index 
file bitmap. 


CALLING SEQUENCE: 
DELETE_HEADER (ARG1) 


INPUT PARAMETERS: 
ARG1: file number of header 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 


OUTPUT PARAMETERS: 
NONE 


jj 


FUSS 
_ 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Header deleted - index file bitmap & VCB altered 


Lv ed MMNMMNNNNNIN 2 3 3 3 QOOOOCOO 4 


MOPUTOPORITOTUPOPOPonoTnofnony 


z . 

4 

2 BEGIN 

4 LOCAL 

4 FILE_NUMBER, ! file number - 1 of header 

4 Vi ! relative block in bitmap 

4 BITPOS, i bit number in bitmap 

2 BUFFER : REF BITVECTOR; ! bitmap buffer 

4 EXTERNAL 

5 CURRENT_VCB : REF BBLOCK; ! VCB of operation 

EXTERNAL ROUTINE 

READ BLOCK, ' read a block from the disk 
WRITE BLOCK, ' write it back 
UPDATE_IBVBN; ! update index file VBN in VCB 


, Deleting a file header consists of simply reading in the sepoeer tate block 
! of the index file bitmap, zeroing the bit representing that file number, 
and writing the block back out. 


SOOOSOSOOOOSOCOOOO SOOO OSOOOSGSGOOOSOOOOOOOOOOOOOO OOOO OOOOOOOOO 
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FILE_NUMBER = EILENUA -1; 
64 2 VBN = .FILE_NUMBER<12,20>: 
65 2 BITPOS = .FILE_NUMBER< 10>5 


2 


IF_.VBN GEQU .CURRENT VCBCVCBSB 1BRAPS 1ZE) 
THEN BUG_CHECK (BADFIB, FATAL, “ACP file 


BUFFER = READ gloce 
$j = 0 


BUF FERC .BITPO : 
WRITE_BLOCK (.BUFFER); 


! If 
the bitmap scan, update the start point. 


IF .VBN LSSU_ .CURRENT_VCBCVCB$B_IBMAPVBN) 
THEN KERNEL_CALL (UPDATE_IBVBN, .VBN); 


END; ' 


Pe Se Ge Se Se Geese Se Se Geese Se ae te Sees 
oO AAO MIUINUMIUIN 
QSAFER IS Seee 

SOQoooooooooooooo 

Ab Ab bbb bh hh db dh hh dh bh dh db dh dh A) 
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CONN 


~EXTRN 
~EXTRN 
001C 00000 -ENTRY 
54 00006 CF 2 44 MOV 
50 04 AC 01 ¢3 0000 SUBL 
26 50 14 Oc EF 0000C EXTZV 
5 50 oc 00 EF 00011 EXTZV 
50 64 00 80018 OVL 
52 38 8=6A0 08 00 ED 0001 CMPZV 
04 1A Q001F BGTRU 
FEFF 00021 BUGW 
wr 00 2 . WORD 
03 DD 00025 1$: PUSHL 
01 0d 00027 PUSHL 
50 64 00 00029 OVL 
30 B042 9F 0002C PUSHAB 
0000G CF F 3 0 CALLS 
00 60 E 035 BBCC 
0 oD 38 9 2$ PUSHL 
0000G CF 01 FB 00 CALLS 
50 6° D Oba MOVL 
52 3A AO 08 0 ED 0004 CMPZV 
11 1B 0004 BLEQU 
¢ DD Bee PUSHL 
dD 4D PUSHL 
E 0D 4F PUSHL 
00006 ff F 1 PUSHAB 
000000006 9F 4 FB 5 CALLS 
04 0005C 3$: RET 


93 bytes, Routine Base: $CODE$ + 00B1 


are 
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3; Routine Size: 
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number out of range for this volume’); 
(.VBN + .CURRENT_VCBCVCBSL_IBMAPLBNI, 


the bitmap block just written precedes the current start point for 


end of routine DELETE_HEADER 


1, INDEX_TYPE); 


CURRENT_VCB, READ_BLOCK 
UPDATE_TBVBN, BUGS_BADF ID 


DELETE_FID, Save R2,R3.R4 
CURRENT VCB, 

#i, FI ENUM F ILE_NUMBER 
#12, #20, FILE NUMBER, VBN 
#0, #12, FILE RUMBER, BITPOS 
CURRENT_VCB 

#9, #8,756(RO), VBN 


> eee atatealinad 
s 


#1 
CURRENT _VCB, RO 


848 (RO) CVBNS 

#3, READ BLOCK 

BIfPOS, TBUFFER), 2$ 0571 
Oy eri Te BLOCK ein 
CURRENT. B, RO 0578 
#0, #8,758(RO), VBN 

VBN 0579 
a 


SP 
UPDATE IBVBN 
#4, @A#SYSSCMKRNL 


Pete Ge Ge Ge Ge Se Se Se Ge Ge Ge Fe Se Ge Se Se Ge Se Fe Se Se Be Se Se Be Be 
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3; Size: 270 code + 0 data bytes 
; Run Time: 00:09.6 

3; Elapsed Time: 00:25. 

3 Lines/CPU Min: Ors 

3; Lexemes/CPU-Min: 1567 

3 penecy Used: 113 pages 

3 a 


; Compilation Complete 


2 
DELF 18-se -1984 00:57:1 VAX-11 Bliss-32 V4.0-742 Page 9 
Vv O00 1 mth 3 35:38 DISKSVMSMASTER: CF11A.SRCIDELFIL.832;1 . (3) 
; PSECT SUMMARY 
: Name Bytes Attributes 
; SCODES 270 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: eoeeee-= Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBILIB.L32;1 18619 21 0 1000 00:02.0 
; COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DELFIL/OBJ=OBJ$:DELFIL MSRC$:DELFIL/UPDATE=(ENH$:DELF IL) 


DIRF 
v04- 


Be Se Se Be Se Se Se Se Se Ge Fe Se Ge Fe Se Se Ge Se Se Ge Fe Ge Ge Se Ge Fe Ge Se Ge Ge Ge Se Se Se Se Fe Se Se Fe Se Se Se Se Se Se Se Se See se Fe Se Se Sete esas 


Oe a ek a a td dd at ot 


AL EQUIPMENT CORPORATION 


AH-BT13A-SE 
DENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


0165 


